home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / dvorak fig 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 1 rem *** dvorak keyboard/maple/fig 1
  2. 4 open4,4:cmd4:c$=chr$(8)+chr$(13)+chr$(15)
  3. 5 printchr$(14)
  4. 6 print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"chr$(8)+chr$(13)+chr$(14);
  5. 7 print"  [221]    dvorak layout    [221]"chr$(8)+chr$(13)+chr$(14);
  6. 8 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  7. 9 [153][199](15)[170][199](17):x$[178]"       "
  8. 100 b$[178][199](128):q$[178][199](8)[170]b$[170][199](135)[170]b$[170][199](135)[170]b$[170]b$[170][199](15)[170][199](17)
  9. 110 [153]x$[170]"ortan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan^"c$;
  10. 120 [153]x$[170]"(NULL)1(NULL)2(NULL)3(NULL)4(NULL)5(NULL)6(NULL)7(NULL)8(NULL)9(NULL)0(NULL)](NULL)=(NULL)"c$;
  11. 130 [153]x$[170]"/=>=>=>=>=>=>=>=>=>=>=>=exp"c$;
  12. 140 [153]x$[170]" (NULL)'(NULL),(NULL).(NULL)p(NULL)y(NULL)f(NULL)g(NULL)c(NULL)r(NULL)l(NULL)?(NULL)"c$;
  13. 150 [153]x$[170]" /=>=>=>=>=>=>=>=>=>=>=>^     (NULL)(NULL)(NULL)val(NULL)closelenatn(NULL)val"c$;
  14. 160 [153]x$[170]"  (NULL)a(NULL)o(NULL)e(NULL)u(NULL)i(NULL)d(NULL)h(NULL)t(NULL)n(NULL)s(NULL)-(NULL)"c$;
  15. 170 [153]x$[170]" or>=>=>=>=>=>=>=>=>=>=>=exp"c$;
  16. 180 [153]x$[170]" (NULL) (NULL);(NULL)q(NULL)j(NULL)k(NULL)x(NULL)b(NULL)m(NULL)w(NULL)v(NULL)z(NULL)"c$;
  17. 190 [153]x$[170]" /tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tanexp"c$;
  18. 200 [153]
  19. 210 [153]x$[170]"ortan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan^"c$;
  20. 220 [153]x$[170]"(NULL)!(NULL)@(NULL)#(NULL)$(NULL)%(NULL)c(NULL)&(NULL)*(NULL)((NULL))(NULL)[(NULL)+(NULL)"c$;
  21. 230 [153]x$[170]"/=>=>=>=>=>=>=>=>=>=>=>=exp"c$;
  22. 240 [153]x$[170]" (NULL)"[170]q$[170]"(NULL),(NULL).(NULL)(NULL)(NULL)(NULL)(NULL)asc(NULL)chr$(NULL)len(NULL)(NULL)(NULL)(NULL)(NULL)?(NULL)"c$;
  23. 250 [153]x$[170]" /=>=>=>=>=>=>=>=>=>=>=>^     (NULL)(NULL)(NULL)val(NULL)closelenatn(NULL)val"c$;
  24. 260 [153]x$[170]"  (NULL)atn(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)right$(NULL)str$(NULL)left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)to(NULL)"c$;
  25. 270 [153]x$[170]" or>=>=>=>=>=>=>=>=>=>=>=exp"c$;
  26. 280 [153]x$[170]" (NULL) (NULL):(NULL)(NULL)(NULL)mid$(NULL)(NULL)(NULL)(NULL)(NULL)peek(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"c$;
  27. 290 [153]x$[170]" /tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tanexp"c$;
  28. 300 [153]:[153]:[153]:[153]:[153]"              str$vorak keyboard/(NULL)aple/ascright$chr$(NULL)(NULL)val 1"
  29. 9999 [152]4:[160]4
  30.